perm filename NOL.F4[TMP,LCS] blob sn#219678 filedate 1976-06-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(80)
C00003 ENDMK
CāŠ—;
	DIMENSION I(80)
	TYPE 1
	ACCEPT 2,NM
1	FORMAT(' TYPE FILE NAME   ',$)
2	FORMAT(A5)
3	FORMAT(80A1)
	CALL IFILE(1,NM)
	CALL OFILE(21,'TRY')
6	READ(1,3,END=7)I
	DO 4 K=80,1,-1
4	IF(I(K).NE.' ')GO TO 5
5	WRITE(21,3)(I(N),N=1,K)
	TYPE 3,(I(N),N=1,K)
	GO TO 6
7	END